home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / COMPTOOL / PICCLIP / INFOFORM.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1996-09-16  |  3.7 KB  |  123 lines
  1. VERSION 5.00
  2. Begin VB.Form infoform 
  3.    Caption         =   "Information"
  4.    ClientHeight    =   2160
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1545
  7.    ClientWidth     =   5475
  8.    BeginProperty Font 
  9.       Name            =   "MS Sans Serif"
  10.       Size            =   8.25
  11.       Charset         =   1
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   2565
  18.    Icon            =   "Infoform.frx":0000
  19.    Left            =   1080
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   2160
  24.    ScaleMode       =   0  'User
  25.    ScaleWidth      =   5475
  26.    Top             =   1200
  27.    Width           =   5595
  28.    Begin VB.PictureBox btrfly2 
  29.       AutoSize        =   -1  'True
  30.       Height          =   1215
  31.       Left            =   75
  32.       Picture         =   "Infoform.frx":030A
  33.       ScaleHeight     =   1185.8
  34.       ScaleMode       =   0  'User
  35.       ScaleWidth      =   1185.8
  36.       TabIndex        =   2
  37.       TabStop         =   0   'False
  38.       Top             =   2865
  39.       Visible         =   0   'False
  40.       Width           =   1215
  41.    End
  42.    Begin VB.Timer Timer2 
  43.       Interval        =   200
  44.       Left            =   4965
  45.       Top             =   1680
  46.    End
  47.    Begin VB.PictureBox btrfly1 
  48.       AutoSize        =   -1  'True
  49.       Height          =   1215
  50.       Left            =   90
  51.       Picture         =   "Infoform.frx":0F94
  52.       ScaleHeight     =   1185.8
  53.       ScaleMode       =   0  'User
  54.       ScaleWidth      =   1185.8
  55.       TabIndex        =   1
  56.       TabStop         =   0   'False
  57.       Top             =   1635
  58.       Visible         =   0   'False
  59.       Width           =   1215
  60.    End
  61.    Begin VB.CommandButton Okay 
  62.       Cancel          =   -1  'True
  63.       Caption         =   "OK"
  64.       Default         =   -1  'True
  65.       Height          =   405
  66.       Left            =   2760
  67.       TabIndex        =   0
  68.       Top             =   1500
  69.       Width           =   1110
  70.    End
  71.    Begin VB.PictureBox btrfly 
  72.       AutoSize        =   -1  'True
  73.       BorderStyle     =   0  'None
  74.       Height          =   1155
  75.       Left            =   240
  76.       Picture         =   "Infoform.frx":1C1E
  77.       ScaleHeight     =   1155
  78.       ScaleMode       =   0  'User
  79.       ScaleWidth      =   1155
  80.       TabIndex        =   3
  81.       TabStop         =   0   'False
  82.       Top             =   240
  83.       Width           =   1155
  84.    End
  85.    Begin VB.Label Label1 
  86.       Caption         =   $"Infoform.frx":28A8
  87.       Height          =   1185
  88.       Left            =   1680
  89.       TabIndex        =   4
  90.       Top             =   270
  91.       Width           =   3360
  92.    End
  93. Attribute VB_Name = "infoform"
  94. Attribute VB_Base = "0{B8B105D6-CA7F-11CF-9BF6-444553540000}"
  95. Attribute VB_Creatable = False
  96. Attribute VB_TemplateDerived = False
  97. Attribute VB_PredeclaredId = True
  98. Attribute VB_Exposed = False
  99. Attribute VB_Customizable = False
  100. Dim flap As Integer
  101. Private Sub butterfly()
  102.     ' Alternate between the two bitmaps.
  103.     If flap = 0 Then
  104.         btrfly.Picture = btrfly1.Picture
  105.         flap = 1
  106.     Else
  107.         btrfly.Picture = btrfly2.Picture
  108.         flap = 0
  109.     End If
  110. End Sub
  111. Private Sub Form_Load()
  112.     infoform.Left = Form1.Left + 150
  113.     infoform.Top = Form1.Top + 400
  114. End Sub
  115. Private Sub Okay_Click()
  116.     Unload infoform
  117. End Sub
  118. Private Sub Timer2_Timer()
  119.     ' Note:  The Interval property of the timer determines
  120.     ' how fast the butterfly's wings flap.
  121.     butterfly
  122. End Sub
  123.